0 REM**********************************  ****                              ****
1 REM      WHEEL OF FORTUNE        ****  ****      BY   DJB SHIBLEY        ****
2 REM                              ****  **************************************
10 POKE650,128:POKE788,52:PRINTCHR$(142)CHR$(8);:GOSUB5000:GOTO100
15 PRINT"";:FORJ=1TO5:PRINT""SP$" ":NEXT:RETURN
20 PRINT"";:FORJ=1TON:PRINT""N$(J)"  "M(J)"[157]     ":NEXT:RETURN
25 PRINT"[150]"SPC(17)CA$(CA)"":PRINTSPC(20-(LEN(Q$)/2))Q$""
27 IFU$<>""THENPRINT"[152]USED : "U$
29 RETURN
35 U=54272::POKEU+1,20:POKEU+5,9:POKEU+6,9:POKEU+24,15:POKEU+4,17
36 FORK=1TO10:NEXT:POKEU+4,16:RETURN
40 U=54272::POKEU+1,220:POKEU+5,9:POKEU+6,9:POKEU+24,15:POKEU+4,17
41 FORK=1TO10:NEXT:POKEU+4,16:RETURN
45 U=54272::POKEU+1,5:POKEU+5,9:POKEU+6,9:POKEU+24,15:POKEU+4,7
46 FORK=1TO10:NEXT:POKEU+4,16:RETURN
50 U=54272::POKEU+1,50:POKEU+5,9:POKEU+6,9:POKEU+24,15:POKEU+4,7
51 FORK=1TO10:NEXT:POKEU+4,16:RETURN
100 POKE53280,13:POKE53281,14:PRINT"[147][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]";
105 FORJ=.TO22:PRINT"[166][166]";:NEXT
110 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][157][148][166]"
115 PRINT"[153]PHRASE THAT PAYS[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][150][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
116 PRINT"[155]BY[144]   SHIBLEY"
120 PRINT"          LOADING VOCABULARY[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:GOSUB35
125 OPEN2,8,2,"0:NMGMLST,S,R":INPUT#2,T:IFST=.THEN135
130 CLOSE2:PRINT"[144]   CHECK  DISK    [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:GOTO125
135 FORJ=1TOT:INPUT#2,W$(J):NEXT:CLOSE2
140 GOSUB35:PRINT"[144]  LOAD  COMPLETE  "
145 Z$="PRESS NUMBER OF PLAYERS (1-4)":PRINT"";:GOSUB1000
150 N=VAL(X$):IFN<1ORN>4THENPRINT"[145][145]":GOTO145
155 GOSUB35:PRINT"[144]    NUMBER OF PLAYERS IS [157]"N"[157]   ":FORI=1TON:GOSUB35
160 PRINT"NAME OF PLAYER"I" ";:Z=9:GOSUB1050:IFX$=""THEN600
165 N$(I)=Z$:IFZ$=""THENN$(I)="PLAYER"+STR$(I)
168 IFLEN(N$(I))<9THENN$(I)=N$(I)+" ":GOTO168
170 PRINT:PRINT"[145][145][144]            [157]"I"[157] -  "N$(I)"       ":NEXTI:H=1
200 FORJ=1TON:M(J)=.:NEXT:GOSUB1100:GOSUB20
205 W=INT(RND(.)*T+1):IFW>T ORW=<1THEN205
210 A$=RIGHT$(W$(W),LEN(W$(W))-1):CA=VAL(LEFT$(W$(W),1)):Q$="":FORJ=1TOLEN(A$)
215 X$=MID$(A$,J,1):IFX$>"@"ANDX$<"["THENQ$=Q$+"-":GOTO225
220 Q$=Q$+X$
225 NEXT:US$="":WI$="NO  ONE  "
250 PRINTBC$"[144]":Z$=N$(H)+" - SPIN WHEEL":PRINTB$"       ";:POKE198,.:GOSUB1000
260 IFX$=""THEN545
270 PRINTBC$:GOSUB1200:FORJ=1TO999:NEXT:IFM$<>"-TURN"THEN285
275 GOSUB45:FORJ=1TO25:PRINTB$"     [144]"N$(H)"  YOU LOSE A TURN"
280 FORK=1TO75:NEXT:PRINTBC$:FORK=1TO50:NEXT:NEXT:Z=.:GOTO450
285 IFM$<>"- $$$"THEN300
290 GOSUB45:FORJ=1TO25:PRINTB$"   [144]"N$(H)"  YOU LOSE YOUR MONEY"
295 FORK=1TO75:NEXT:PRINTBC$:FORK=1TO50:NEXT:NEXT:M(H)=0:Z=.:GOTO450
300 FORJ=1TO999:NEXT:GOSUB15:PRINT""SPC(15)"[144]SOLVE PUZZLE[154]"
305 PRINTSPC(20)"OR[144]":PRINTSPC(15)"GUESS LETTER"
310 Z$=N$(H)+"  CHOOSE S OR G":GOSUB35
311 PRINTB$"     [151]";:POKE198,.:GOSUB1000
330 IFX$<>""ANDX$<>"S"ANDX$<>"G"THEN311
335 GOSUB15:PRINTBC$:IFX$=""THEN545
340 GOSUB25:IFX$="G"THEN365
345 GOSUB1350:IFQ$<>A$THENZ=.:GOTO460
355 TM(H)=TM(H)+M(H):WI$=N$(H):GOTO525
365 PRINTB$"[144]     "N$(H)"[151]  CHOOSE A LETTER":Y=99:POKE198,.
369 IFY<1THENZ=.:GOTO460
370 PRINT"[152]"Y"[157] ":X=.:POKEU+1,19:POKEU+5,24:POKEU+6,8:POKEU+24,6
371 POKEU+4,17:FORJ=5TO1STEP-1:POKEU+24,J:FORK=1TO55:NEXT:NEXT:POKEU+4,16
375 FORJ=1TO40:GETX$:IFX$>"@"ANDX$<"["THENJ=40:X=1
380 NEXT:Y=Y-1:IFX=.THEN369
390 IF(X$="A"ORX$="E"ORX$="I"ORX$="O"ORX$="U")ANDM(H)<300THENY=Y-5:GOTO369
395 X=.:FORJ=1TOLEN(U$):IFX$=MID$(U$,J,1)THENX=1
400 NEXT:IFX=1THENY=Y-10:GOTO369
405 U$=U$+X$
410 IFX$="A"ORX$="E"ORX$="I"ORX$="O"ORX$="U"THENM(H)=M(H)-300:M$="   0"
420 Z=.:FORJ=1TOLEN(A$):IFX$<>MID$(A$,J,1)THEN435
425 Q$=LEFT$(Q$,J-1)+X$+RIGHT$(Q$,LEN(Q$)-J):M(H)=M(H)+VAL(M$):Z=1
430 GOSUB40:GOSUB25:FORK=1TO900:NEXT
435 NEXT:PRINTBC$
450 GOSUB20:IFQ$=A$THENWI$=N$(H):TM(H)=TM(H)+M(H):GOTO525
455 IFZ=1THENFORK=1TO3000:NEXT
460 IFZ=.THENGOSUB45:H=H+1:IFH>NTHENH=1
465 X=.:FORJ=1TOLEN(Q$):X$=MID$(A$,J,1):IFMID$(Q$,J,1)=X$THEN475
470 IFX$<>"A"ANDX$<>"E"ANDX$<>"I"ANDX$<>"O"ANDX$<>"U"THENX=1:J=LEN(Q$)
475 NEXT:IFX=1THENGOSUB15:GOTO250
500 PRINT"   ALL VOWELS LEFT":Z=LEN(Q$):FORJ=1TO30:GOSUB50:NEXT
505 FORI=1TON:GOSUB1350:IFQ$=A$THENI=N:GOTO520
510 H=H+1:IFH>NTHENH=1
520 NEXTI:IFQ$=A$THENTM(H)=TM(H)+M(H):WI$=N$(H)
525 Q$=A$:U$="":GOSUB15:GOSUB25
530 PRINT""WI$"[156]  WINS THIS ROUND"
535 PRINT"[223][146]GAME TOTALS[169]"
540 FORJ=1TON:M(J)=TM(J):NEXT:GOSUB20
545 Z$="ANOTHER ROUND  (PRESS Y OR N)":PRINTB$"    ";:GOSUB1000
550 IFX$<>""ANDX$<>"Y"ANDX$<>"N"THEN545
555 IFX$="Y"THEN200
600 POKE53280,3:GOSUB15:FORJ=1TON:M(J)=TM(J):NEXT:GOSUB20:FORDL=1TO2000:NEXT
601 PRINT"[147]"BC$B$"    PHRASE THAT PAYS  [154]BY SHIBLEY"
602 POKE53280,3:PRINTSPC(14)"[156]GAME  ENDED[158][157][157][157][157][157][157][157][157][157][157][157][197][197][197][197][197][197][197][197][197][197][197][152]"
605 POKE788,49:POKE650,.:LOAD"HELLO CONNECT",8:END
1000 PRINTZ$LEFT$(L$,LEN(Z$));:FORJ=1TO35:GETX$:IFX$=""THENNEXT:GOTO1010
1005 J=35:NEXT:RETURN
1010 PRINTLEFT$(SP$,LEN(Z$))LEFT$(L$,LEN(Z$));:
1011 FORJ=1TO35:GETX$:IFX$=""THENNEXT:GOTO1000
1015 J=35:NEXT:RETURN
1050 Z$="":POKE198,.
1055 PRINT"[209][157]";:FORJ=1TO40:GETX$:IFX$=""THENNEXT:GOTO1065
1060 J=40:NEXT:GOTO1070
1065 PRINT" [157]";:FORJ=1TO30:GETX$:IFX$=""THENNEXT:GOTO1055
1066 J=30:NEXT
1070 IFX$=CHR$(13)THENRETURN
1071 IFX$=""THEN545
1075 IFX$="[157]"ORX$=CHR$(20)ANDLEN(Z$)<1THEN1055
1080 IFX$="[157]"ORX$=CHR$(20)THENZ$=LEFT$(Z$,LEN(Z$)-1):PRINT"[157]  [157][157]";:GOTO1055
1085 IFX$=","ORX$=CHR$(34)ORX$=";"ORX$=":"ORX$<" "ORX$>"_"ORLEN(Z$)=ZTHEN1055
1090 PRINTX$;:Z$=Z$+X$:GOTO1055
1100 POKE53280,4:POKE53281,15:PRINT"[147]"SPC(12)"SHIBLEY  SOFTWARE"
1105 PRINT"[169]                                    [223]";
1110 FORJ=1TO5:PRINT" "SPC(36)" ";:NEXT
1115 FORJ=1TO15:PRINT"                                      ";:NEXT
1120 PRINT"[146][144][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]":PRINT"[221]"SPC(36)"[221]"
1125 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]":RETURN
1200 GOSUB15:PRINT""SPC(23)"_[192][192]":FORJ=631TO640:POKEJ,32:NEXT:U=54272
1205 X1$="     ":X2$="     ":X3$="     ":X4$="     ":X5$="     "
1209 X=.:Y=.:FORJ=1TO15
1210 X$=A$(RND(.)*30+1):X1$=X2$:X2$=X3$:X3$=X4$:X4$=X5$:X5$=X$
1217 POKEU+1,21:POKEU+5,2:POKEU+6,4:POKEU+24,6:POKEU+4,17:POKEU+24,5
1218 POKEU+24,4:POKEU+24,3:POKEU+24,2:POKEU+24,1:POKEU+4,16
1220 PRINT""SPC(17)X1$"[157][157][157][157][157]"X2$"[157][157][157][157][157]"X3$"[157][157][157][157][157]"X4$"[157][157][157][157][157]"X5$
1235 IFX=.THENJ=1:GETX$:IFX$=""THENX=1
1240 IFX=1THENFORK=1TOJ*36:NEXT
1244 IFX=1THENIF(J=14ANDRND(.)>.5)OR(J=13ANDRND(.)>.8)THENJ=15
1245 NEXT:FORJ=1TO250:NEXT:M$=X3$:PRINT""SPC(17)"[144]"M$:RETURN
1350 PRINTB$"    [144]"N$(H)"[151]  RETURN YOUR GUESS":PRINT""SP$
1355 PRINT""SPC(20-(LEN(Q$)/2));
1360 Z=LEN(A$):GOSUB1050:IFX$=""THEN600
1361 IFZ$=A$THENQ$=Z$:GOSUB40
1362 IFZ$<>A$THENGOSUB45
1365 PRINTBC$:PRINT""SP$:RETURN
5000 DIMW$(600),A$(30):CA$(1)="PERSON":CA$(2)="PLACE ":U=54272
5005 CA$(3)="THING ":CA$(4)="PHRASE"
5010 L$="[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
5015 SP$="                                   "
5018 B$=""
5020 BC$=B$+"                                    "
5025 X=1:FORJ=1TO20STEP2:A$(J)=" "+RIGHT$(STR$(X),2)+"00"
5027 A$(J+1)=" "+RIGHT$(STR$(X),2)+"50":X=X+1
5030 NEXT:A$(21)=" 2000":A$(22)=" 2500":A$(24)=" 1500":A$(25)=" 1800"
5031 A$(23)=" 5000"
5033 A$(26)="-TURN":A$(27)="- $$$":A$(28)="- $$$":A$(29)=" 1900":A$(30)=" 1200"
5090 RETURN
5555 OPEN15,8,15:PRINT#15,"S0:WHEEL":SAVE"WHEEL",8:END
6666 DIMW$(600):OPEN2,8,2,"0:NMGMLST,S,R":INPUT#2,T:FORJ=1TOT:INPUT#2,W$(J)
6667 NEXT:CLOSE2:PRINT"[147]CHANGE DISKS AND STAND ON YOUR HEAD"
6668 GETX$:IFX$=""THEN6668
6669 OPEN15,8,15:PRINT#15,"S0:NMGMLST":CLOSE15:OPEN3,8,3,"0:NMGMLST,S,W"
6670 PRINT#3,T:FORJ=1TOT:PRINT#3,W$(J):NEXT:CLOSE3:END